
#Include "fbstrings.bi"

Using FB.Strings

Dim As String s = "The quick brown fox jumps over lazy dog."

Scope

	Dim As String find(0 To 1) 	=> { "fox", "dog" }
	Dim As String replace(0 To 1)	=> { "dog", "fox" }
	
	Print StrReplace(s, find(), replace())

End Scope


Scope

	Dim As String find(-45 To -42) 		=> { "fox", "dog", "lazy", "brown" }
	Dim As String replace(317 To 320)	=> { "dog", "fox", "blue", "green" }
	
	Print StrReplace(s, find(), replace())

End Scope

Sleep